home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Grafik & Text / OzTeX3.0 / MetaPost / Docs / mpgraph.mp < prev    next >
Text File  |  1996-08-24  |  3KB  |  132 lines
  1. input graph
  2.  
  3. %if false:  %% Begin skipping already debugged figures
  4. %fi input sarith %% End skipping of already debugged figures
  5.  
  6. beginfig(1);
  7. draw begingraph(3in,2in);
  8.   gdraw "agepop91.d";
  9.   endgraph;
  10. endfig;
  11.  
  12.  
  13. beginfig(2);
  14. draw begingraph(3in,2in);
  15.   gdraw "agepop91.d" plot btex$\bullet$etex;
  16.   endgraph;
  17. endfig;
  18.  
  19.  
  20. beginfig(3);
  21. draw begingraph(3in,2in);
  22.   glabel.lft(btex \vbox{\hbox{Population} \hbox{in millions}} etex, OUT);
  23.   glabel.bot(btex Age in years etex, OUT);
  24.   gdraw "agepopm.d";
  25.   endgraph;
  26. endfig;
  27.  
  28.  
  29. beginfig(4);
  30. draw begingraph(3in,2in);
  31.  glabel.lft(btex \vbox{\hbox{Population} \hbox{in millions}} etex, OUT);
  32.  glabel.bot(btex Age in years etex, OUT);
  33.  setrange(origin, whatever,whatever);
  34.  gdraw "agepopm.d";
  35.  endgraph;
  36. endfig;
  37.  
  38.  
  39. beginfig(5);
  40. draw begingraph(2.3in,2in);
  41.  setcoords(log,log);
  42.  glabel.lft(btex Seconds etex,OUT);
  43.  glabel.bot(btex Matrix size etex,
  44.    OUT);
  45.  gdraw "matmul.d" dashed evenly;
  46.  glabel.ulft(btex Standard etex,8);
  47.  gdraw "matmul.d";
  48.  glabel.lrt(btex Strassen etex,7);
  49.  endgraph;
  50. endfig;
  51.  
  52.  
  53. beginfig(6);
  54. draw begingraph(6.5cm,4.5cm);
  55.  setrange(80,0, 90,whatever);
  56.  glabel.bot(btex Year etex, OUT);
  57.  glabel.lft(btex \vbox{\hbox{Emissions in} \hbox{thousands of}
  58.    \hbox{metric tons} \hbox{(heavy line)}}etex, OUT);
  59.  gdraw "lead.d" withpen pencircle scaled 1.5pt;
  60.  autogrid(,otick.lft);
  61.  setcoords(linear,linear);
  62.  setrange(80,0, 90,whatever);
  63.  glabel.rt(btex \vbox{\hbox{Micrograms} \hbox{per cubic}
  64.    \hbox{meter of air} \hbox{(thin line)}}etex, OUT);
  65.  gdraw "lead.d";
  66.  autogrid(otick.bot,otick.rt);
  67.  endgraph;
  68. endfig;
  69.  
  70.  
  71. input sarith
  72.  
  73. beginfig(7);
  74. vardef newy(expr y) = (256/75)*y + mlog y enddef;
  75. draw begingraph(3in,2in);
  76.  glabel.lft(btex \vbox{\hbox{Population} \hbox{in millions}} etex, OUT);
  77.  path p;
  78.  gdata("timepop.d", $, augment.p($1, newy(Scvnum $2)); );
  79.  gdraw p;
  80.  for y=5,10,20,50,100,150,200,250:
  81.    grid.lft(format("%g",y), newy(y)) withcolor .85white;
  82.  endfor
  83.  autogrid(grid.bot,) withcolor .85white;
  84.  frame.llft;
  85.  endgraph;
  86. endfig;
  87.  
  88. beginfig(8);
  89. defaultfont:="cmr7";
  90. draw begingraph(3in,2in);
  91.   glabel.lft(btex \vbox{\hbox{Life}\hbox{expectancy}} etex, OUT);
  92.   glabel.bot(btex Per capita G.N.P. (thousands of dollars) etex, OUT);
  93.   setcoords(log,linear);
  94.   gdata("countries.d", s,
  95.     glabel(s3, s1, s2);
  96.   )
  97.   endgraph;
  98. endfig;
  99.  
  100.  
  101. beginfig(9);
  102. draw begingraph(3in,2in);
  103.   glabel.lft(btex \vbox{\hbox{Quadrillions}\hbox{of BTU}} etex, OUT);
  104.   path p[];
  105.   numeric t;
  106.   gdata("energy.d", $,
  107.     t:=0; augment.p1($1,0);
  108.     for j=2 upto 5:
  109.        t:=t+scantokens $[j]; augment.p[j]($1,t);
  110.     endfor)
  111.   picture lab[];
  112.   lab2=btex coal etex; lab3=btex crude oil etex;
  113.   lab4=btex natural gas etex; lab5=btex hydroelectric etex;
  114.   for j=5 downto 2:
  115.     gfill p[j]--reverse p[j-1]--cycle withcolor .16j*white;
  116.     glabel.lft(image(unfill bbox lab[j]; draw lab[j]), .7+length p[j]);
  117.   endfor
  118.   endgraph;
  119. endfig;
  120.  
  121.  
  122. beginfig(10);
  123. draw format("%g",2+2);
  124. endfig;
  125.  
  126. beginfig(11);
  127. draw format("%3g","6.022e23");
  128. endfig;
  129.  
  130.  
  131. end
  132.